home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / S-Super PET / (s)t2.d64 / SCREEN DUMP < prev    next >
Text File  |  2009-01-18  |  581b  |  18 lines
  1. 61240 ! from superpet gazette volume#1,no.2
  2. 62000 ! screen dump for superpet: title "dump"
  3. 62010 proc dump
  4. 62020 open #12, "ieee4", output 
  5. 62030 open #13, "keyboard", inout 
  6. 62040 aa=1
  7. 62050 for ii=1 to 24
  8. 62060   print #13, chr$(13);chr$(13) ! stuff keyboard buffer with two cr's
  9. 62070   if cursor (aa) then get #13,cr$
  10. 62080   linput "", aa$ ! quotes suppress question mark
  11. 62090   if aa$ = "quit" then 62130
  12. 62100   print #12, aa$
  13. 62110   aa = aa + 80
  14. 62120 next ii
  15. 62130 aa=0: ii=0 : aa$="" !clear variables; calls do not clear them
  16. 62140 close #12 : close #13
  17. 62150 endproc 
  18.